AMIGA-CD 2/Amiga-CD - Volume 2.iso/ungepackte_daten/1995/3/06b/mathscript/mathscript.ampk/MathScript/Install

Text File | 1995-06-01 | 5.5 KB | 129 lines

(SET rexxhelp "This will copy some example ARexx scripts to your \"Rexx\" directory")
(SET languagehelp "Beginnig with OS 2.1 MathScript can be localized to your local language. English is built-in and so always available.\nWith OS 2.1 the following languages are also available:\ndeutsch\nfrançais")
(SET formulahelp "This will copy some example formulas to your \"Formulas\" directory")
(SET iconhelp "You can choose between two kinds of icons: Standard icons and MagicWB icons.\nMagicWB installs 8-color icons styled like the original MagicWB icons.\nOnly use this option if you have MagicWB installed to your system.\n\nMagicWB ©Copyright Martin Huttenloher")
(SET startuphelp "MathScript needs an assign pointing to its directory to operate correctly. By selecting PROCEED an assign will be added to your User-Startup file to make this assign everytime you boot")
(SET docshelp "The MathScript package includes AmigaGuide Documents in the following languages:\nenglish\ndeutsch")
(SET doctype_help "AmigaGuide is the standard hypertext format.\nIt has to be displayed by either Multiview or AmigaGuide.\n\n")
(SET NoGuide_help "If you select \"No\" the documentation will be installed in the AmigaGuide format. Otherwise a plain Ascii documentation will be installed!\n\n")

(SET ziel (ASKDIR (PROMPT "Where shall the directory 'MathScript' be created?") (HELP @askdir-help) (DEFAULT @default-dest) ))

(SET ziel (TACKON ziel "MathScript"))

(SET @default-dest ziel)

(COPYFILES (SOURCE "MathScript") (DEST ziel) (INFOS))

(COPYFILES (SOURCE "fonts") (ALL) (Dest (TACKON ziel "fonts")))

(COPYFILES (SOURCE "init.ps") (DEST ziel))

(COPYFILES (SOURCE "metrics") (DEST ziel))

(COPYFILES (SOURCE "PSFont") (DEST ziel))

(MAKEDIR (TACKON ziel "rexx"))


(IF (ASKBOOL (PROMPT "Shall the example ARexx scripts be installed?") (HELP rexxhelp))
    (COPYFILES (SOURCE "rexx") (DEST (TACKON ziel "rexx")) (ALL)))

(MAKEDIR (TACKON ziel "Formulas") (INFOS))

(IF (ASKBOOL (PROMPT "Shall the example formulas be installed?") (HELP formulahelp))
    (COPYFILES (SOURCE "Formulas") (DEST (TACKON ziel "Formulas")) (ALL)))

(IF (>= (SUBSTR (GETENV "Workbench") 0 2) 38)    ; ab OS 2.1
    (
    (SET sprachen (ASKOPTIONS (PROMPT "Which additional languages shall be installed?") (HELP languagehelp)
        (CHOICES "deutsch" "français") ))
    (MAKEDIR (TACKON ziel "Catalogs"))
    (IF (IN sprachen 0)
        (COPYFILES (SOURCE "Catalogs/deutsch/MathScript.catalog") (DEST (TACKON ziel "Catalogs/deutsch"))))
    (IF (IN sprachen 1)
        (COPYFILES (SOURCE "Catalogs/français/MathScript.catalog") (DEST (TACKON ziel "Catalogs/français"))))
    (COPYFILES (SOURCE "Catalogs/readme") (DEST (TACKON ziel "Catalogs")))
    (COPYFILES (SOURCE "Catalogs/newlanguage.ct") (DEST (TACKON ziel "Catalogs")))
    )
)

(IF (EXISTS "sys:utilities/Multiview")
    (SET def-tool "SYS:Utilities/Multiview")
    (IF (EXISTS "sys:utilities/AmigaGuide")
        (SET def-tool "SYS:Utilities/AmigaGuide")
        (SET def-tool "more"))
)

(SET docs (ASKOPTIONS (PROMPT "In which languages shall the Doc files be installed?") (HELP docshelp)
    (CHOICES "english" "deutsch")))

(IF (= @user-level 2)
    (SET type (ASKOPTIONS (PROMPT "Which type of document shall be installed?") (HELP doctype_help) (CHOICES "AmigaGuide" "Ascii") (DEFAULT 1)))
    (
    (IF (= def-tool "more")
        (
        (SET type (ASKBOOL (prompt "Neither Multiview nor AmigaGuide was found! Shall the documentation be installed as ASCII ?") (help (CAT NoGuide_help doctype_help)) (choices "Yes" "No")))
        (IF (= type 1) (SET type 2) (SET type 1) )
        )
        (SET type 1)
        )
    ))

(IF (= def-tool "more") (SET def-tool "AmigaGuide"))

;type AND 010 -> DOK ; type AND 001 -> GUIDE

(MAKEDIR (TACKON ziel "Docs") (INFOS))

(IF (IN docs 0)
    (
    (IF (IN type 0)
        (
        (COPYFILES (SOURCE "Docs/english") (PATTERN "#?.guide") (DEST (TACKON ziel "Docs/english")) (INFOS))
        (TOOLTYPE (DEST (TACKON ziel "Docs/english/MathScript.guide")) (SETDEFAULTTOOL def-tool))
        (TOOLTYPE (DEST (TACKON ziel "Docs/english/FinalWriter.guide")) (SETDEFAULTTOOL def-tool))
        ))
    (IF (IN type 1)
        (
        (COPYFILES (SOURCE "Docs/english") (PATTERN "#?.doc") (DEST (TACKON ziel "Docs/english")) (INFOS))
        ))
    ))
(IF (IN docs 1)
    (
    (IF (IN type 0)
        (
        (COPYFILES (SOURCE "Docs/deutsch") (PATTERN "#?.guide") (DEST (TACKON ziel "Docs/deutsch")) (INFOS))
        (TOOLTYPE (DEST (TACKON ziel "Docs/deutsch/MathScript.guide")) (SETDEFAULTTOOL def-tool))
        (TOOLTYPE (DEST (TACKON ziel "Docs/deutsch/FinalWriter.guide")) (SETDEFAULTTOOL def-tool))
        ))
    (IF (IN type 1)
        (
        (COPYFILES (SOURCE "Docs/deutsch") (PATTERN "#?.dok") (DEST (TACKON ziel "Docs/deutsch")) (INFOS))
        ))
    ))

(SET icon (ASKCHOICE (PROMPT "Which icons shall be used?") (CHOICES "Standard" "MagicWB") (HELP iconhelp)))

(MAKEDIR (TACKON ziel "icons") (INFOS))
(IF (= icon 0)
    (
    (COPYFILES (SOURCE "icons/def_FML.info") (DEST (TACKON ziel "icons")) (INFOS) )
    (COPYFILES (SOURCE "icons/def_PS.info") (DEST (TACKON ziel "icons")) (INFOS) )
    (COPYFILES (SOURCE "icons/MathScript.info") (DEST ziel ) (INFOS) )
    )
    (
    (COPYFILES (SOURCE "icons/def_FML8.info") (DEST (TACKON ziel "icons")) (INFOS) )
    (COPYFILES (SOURCE "icons/def_PS8.info") (DEST (TACKON ziel "icons")) (INFOS) )
    (COPYFILES (SOURCE "icons/MathScript8.info") (DEST ziel) (NEWNAME "MathScript.info") (INFOS))
    )
)

(STARTUP "MathScript" (PROMPT "Assigns called 'MathScript:' and 'PSFonts:' are needed to use the program. Shall they be added to your User-Startup?") (HELP startuphelp) (COMMAND (CAT "Assign MathScript: " ziel) "\n" (CAT "Assign PSFonts: " (CAT "MathScript: " "add"))) )
(MAKEASSIGN "MathScript" ziel)
(MAKEASSIGN "PSFonts" ziel)


(EXIT)